home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / mrun211.zip / MRUN211A.WAS < prev    next >
Text File  |  1993-05-01  |  23KB  |  728 lines
  1. ;MailRun v2.11:  Part A, Main body of script
  2. ;1992-1993 Gerald P. Sully, all rights reserved.
  3.  
  4. #comment
  5. **************************************************************************
  6. **************************************************************************
  7. * 
  8. * This file serves as "home base" for the rest of the script.
  9. * All other scripts will return to this one if they are
  10. * exited normally.  It initializes MailRun, creates the
  11. * user interface, and then waits for action on the part of the
  12. * user.  If the user executes a mailrun, this section is also
  13. * responsible for taking care of scheduling.
  14. * 
  15. * Elements of the user interface are contained in the header
  16. * file (MRUN211.H).  Menu selections are fielded by parsemenu()
  17. * and the toolbar is controlled by parseobject().  The routines 
  18. * associated with menu items are contained in the header file 
  19. * immediately following parsemenu() and parseobject().  Some of
  20. * these in turn call routines in other script modules through 
  21. * the callscript() procedure.  Where necessary, a FLAG is set to
  22. * inform the target module which routines to execute.  
  23. * 
  24. * The code for the interface is #included in every module of 
  25. * MailRun so that any part of the script may be called from any 
  26. * other part.  Other script modules are called by MRUN211A and 
  27. * MRUN211G (the module responsible for executing the mailrun) 
  28. * using the "execute" command.  When a module is called from
  29. * MRUN211B-F, a "chain" command is used.
  30. * 
  31. **************************************************************************
  32. **************************************************************************
  33. #endcomment
  34.  
  35. #define MRUN211A
  36. #define MRUN211AG
  37. #define MRUN211AB
  38.  
  39. string MainBoxTabs
  40. integer RingInterrupt, AutoRun
  41. integer MailRunMenu, RunningMenu, FileMenu, ConfigMenu, AddMenu
  42. integer DefaultsMenu, ExecuteMenu, HelpMenu, EditMenu
  43.  
  44. #include "mrun211.h"
  45.  
  46. #define HAVEYOUPAID;YOURFIFTEENDOLLARSYET
  47.  
  48. #comment
  49. *********************************************************************
  50. * 
  51. * MAIN()
  52. * 
  53. * Calls checkchild(), initialize(), maketasklist(),
  54. * makemailrunlist(), runmenu(), mrunmenu(), mrunwin(),
  55. * getfirstitem(), helpabout(), parsedialog(), parsekeystate(),
  56. * interfaceon(), executor(), makefullname()
  57. * 
  58. * Main first calls the initialization routines, then puts
  59. * up the main dialog box and waits for user action.
  60. * 
  61. *********************************************************************
  62. #endcomment
  63.  
  64. proc main
  65. string MRunIcons
  66.     checkchild()
  67.     initialize()
  68.     runmenu()
  69.     mrunmenu()
  70.     mrunwin()
  71.     makemailrunlist()
  72.     maketasklist()
  73.     getfirstitem()
  74.     showmenu MailRunMenu
  75.     if AutoRun == 1
  76.         filereset()
  77.         FLAGS |= RUNNING
  78.         GoWait = 1
  79.         PostRun = 3
  80.         pause 2
  81.     else
  82. #ifdef HAVEYOUPAID;YOURFIFTEENDOLLARSYET
  83.         helpabout()
  84. #else
  85.         mailrunbox()
  86. #endif
  87.     endif
  88.     interfaceon()
  89.     MRunIcons = makefullname(MailRunDir, "MRUNICON.DLL")
  90.     when dialog call parsedialog
  91.     while 1
  92.         if FLAGS & RUNNING
  93.             copyfile MRunIcons "C:\MRUNICON.DLL"
  94.             switch $XPIXELS
  95.                 case 1280
  96.                     iconbutton 1 25 0 "" "C:\MRUNICON.DLL" 16 userwin
  97.                 endcase
  98.                 case 1024
  99.                     iconbutton 1 30 0 "" "C:\MRUNICON.DLL" 16 userwin
  100.                 endcase
  101.                 case 800
  102.                     iconbutton 1 40 0 "" "C:\MRUNICON.DLL" 16 userwin
  103.                 endcase
  104.                 default
  105.                     iconbutton 1 50 0 "" "C:\MRUNICON.DLL" 16 userwin
  106.                 endcase
  107.             endswitch
  108.             paint
  109.             delfile "C:\MRUNICON.DLL"
  110.              showmenu RunningMenu
  111.              executor()
  112.             copyfile MRunIcons "C:\MRUNICON.DLL"
  113.             switch $XPIXELS
  114.                 case 1280
  115.                     iconbutton 1 25 0 "" "C:\MRUNICON.DLL" 0 userwin
  116.                 endcase
  117.                 case 1024
  118.                     iconbutton 1 30 0 "" "C:\MRUNICON.DLL" 0 userwin
  119.                 endcase
  120.                 case 800
  121.                     iconbutton 1 40 0 "" "C:\MRUNICON.DLL" 0 userwin
  122.                 endcase
  123.                 default
  124.                     iconbutton 1 50 0 "" "C:\MRUNICON.DLL" 0 userwin
  125.                 endcase
  126.             endswitch
  127.             paint
  128.             delfile "C:\MRUNICON.DLL"
  129.              showmenu MailRunMenu
  130.         endif
  131.     endwhile
  132. endproc
  133.  
  134.  
  135. #comment
  136. *********************************************************************
  137. * 
  138. * INITIALIZE()
  139. * 
  140. * Called by main()
  141. * 
  142. * Calls cleardir(), makemrn(), makefullname(), checkfile()
  143. * 
  144. * Saves system state and initializes global variables.
  145. * 
  146. *********************************************************************
  147. #endcomment
  148.  
  149. proc initialize
  150. string LastRun, env, temp , CleanupFile
  151. string StateCapPath, StateCapFile, StateDnldPath, StateUpldPath
  152. integer StateAutoDL, StateActionBar, StateMetaKeys
  153. integer blank = 0
  154.     ;Create the working directory
  155.     getenv "TEMP" env
  156.     if NULLSTR env
  157.         TempDir = makefullname($PWTASKPATH, "MRUNTEMP")
  158.     else
  159.         TempDir = makefullname(env, "MRUNTEMP")
  160.     endif
  161.     FLAGS = 0
  162.     MailRunIni = makefullname($WINPATH, "MAILRUN.INI")
  163.     profilerd MailRunIni "MailRun" "MailRun" MailRunTrunc
  164.     profilerd MailRunIni "MailRun" "MailRunDir" MailRunDir
  165.     profilerd MailRunIni "MailRun" "AutoRun" AutoRun
  166.  
  167.     ;Save the current state of PCPlus/Win
  168.     fetch autodnld StateAutoDL
  169.     fetch capture path StateCapPath
  170.     fetch capture file StateCapFile
  171.     fetch dnldpath StateDnldPath
  172.     fetch upldpath StateUpldPath
  173.     StateActionBar = $ACTIONBAR
  174.     StateMetaKeys = $METAKEYS
  175.     ;Save the system state in the cleanup file
  176.     cleanupfile = makefullname(TempDir, "CLEANUP.TMP")
  177.     profilewr CleanupFile "Cleanup" "StateAutoDL" StateAutoDL
  178.     profilewr CleanupFile "Cleanup" "StateCapPath" StateCapPath
  179.     profilewr CleanupFile "Cleanup" "StateCapFile" StateCapFile
  180.     profilewr CleanupFile "Cleanup" "StateDnldPath" StateDnldPath
  181.     profilewr CleanupFile "Cleanup" "StateUpldPath" StateupldPath
  182.     profilewr CleanupFile "Cleanup" "StateActionBar" StateActionBar
  183.     profilewr CleanupFile "Cleanup" "StateMetaKeys" StateMetaKeys
  184.  
  185.     ;Change the settings
  186.     set capture path MailRunDir
  187.     set capture query OFF
  188.     set autodnld OFF
  189.     set aspect rangechk OFF
  190.     metakeys OFF
  191.     actionbar OFF
  192.  
  193.     ;If the mailrun in MAILRUN.INI doesn't exist, create it
  194.     if NULLSTR MailRunTrunc
  195.         blank = 1
  196.     else
  197.         LastRun = makefullname(MailRunDir, MailRunTrunc)
  198.     endif
  199.     if !(checkfile(LastRun)) || blank
  200.         temp = makefullname(MailRunDir, "*.MRN")
  201.         findfirst temp
  202.         if FOUND
  203.             MailRunTrunc = $FILENAME
  204.             LastRun = makefullname(MailRunDir, MailRunTrunc)
  205.         else
  206.             MailRunTrunc = "mailrun.mrn"
  207.             MailRunList = "mailrun.mrn"
  208.             makemrn()
  209.             LastRun = MailRun
  210.         endif
  211.     endif
  212.     ;Copy the mailrun to the temp directory
  213.     MailRun = makefullname(TempDir, MailRunTrunc)
  214.     TaskList = makefullname(TempDir, "TASKLIST.TMP")
  215.     copyfile LastRun MailRun
  216.     profilerd MailRun "MailRun" "Archiver" Archiver
  217.     profilerd MailRun "MailRun" "QWKReader" QWKReader
  218.     profilerd MailRun "MailRun" "LogViewer" LogViewer
  219. endproc
  220.  
  221.  
  222. #comment
  223. *********************************************************************
  224. * 
  225. * EXECUTOR()
  226. * 
  227. * Called by main()
  228. * 
  229. * Calls schedulebox(), mailrunbox(), checktime(), fileexit(),
  230. * scheduler(), domailrun(), makefullname(), filereset(),
  231. * maketasklist()
  232. * 
  233. * Executes MRUN211G
  234. * 
  235. * Puts up the MailRun Scheduling box and parses the result.
  236. * 
  237. *********************************************************************
  238. #endcomment
  239.  
  240. proc executor
  241. string HH, MM, SS, temp, LogFile, domailrun
  242. integer Hour, Minute, Second
  243. integer dialogstatus, boxstatus
  244.     domailrun = makefullname(MailRunDir, "MRUN211G")
  245.     findfirst MailRun
  246.     LogFile = $FNAME
  247.     strcat LogFile ".CAP"
  248.     if AppendLog == 0
  249.         ;if user does not want to append to existing log file
  250.         temp = makefullname(MailRunDir, LogFile)
  251.         delfile temp
  252.     endif
  253.     set capture file LogFile
  254.     profilerd MailRun "MailRun" "RingInterrupt" RingInterrupt
  255.     if AutoRun == 0
  256.         profilerd MailRun "MailRun" "ExecTime" ExecTime
  257.         profilerd MailRun "MailRun" "PostRun" PostRun
  258.         profilerd MailRun "MailRun" "GoWait" GoWait
  259.         schedulebox()
  260.         if GoWait == 1 
  261.             disable CTRL 230
  262.         endif
  263.     endif
  264.     ;boxstatus indicates whether or not mailrunbox is showing
  265.     boxstatus = 0
  266.     ;turn off parsedialog() for parsing contols
  267.     clearwhen dialog
  268.     while (FLAGS & RUNNING) && (AutoRun == 0)
  269.         dialogstatus = $DIALOG
  270.         switch dialogstatus
  271.             case 1
  272.                 ;User selected "Cancel"
  273.                 FLAGS &= IDLE
  274.                 mailrunbox()
  275.                 boxstatus = 1
  276.                 ;turn back on parsedialog() for parsing controls
  277.                 when dialog call parsedialog
  278.                 return
  279.             endcase
  280.             case 10
  281.                 ;User selected "OK"
  282.                 if GoWait == 2
  283.                     ;if the scheduler is turned on...
  284.                     ;parse the entered time
  285.                     strextract HH ExecTime ":" 0
  286.                     strextract MM ExecTime ":" 1
  287.                     strextract SS ExecTime ":" 2
  288.                     Hour = checktime(HH)
  289.                     Minute = checktime(MM)
  290.                     Second = checktime(SS)
  291.                     if ((Hour < 0) || (Hour > 23)) || ((Minute < 0) || \
  292.                         (Minute > 59)) || ((Second < 0) || (Second > 59))
  293.                         usermsg "The time must be in 24 hour format!"
  294.                         ExecTime = "HH:MM:SS"
  295.                         updatedlg 128
  296.                         dialogstatus = $DIALOG
  297.                         loopwhile
  298.                     endif
  299.                     profilewr MailRun "MailRun" "ExecTime" ExecTime
  300.                 endif
  301.                 profilewr MailRun "MailRun" "RingInterrupt" RingInterrupt
  302.                 profilewr MailRun "MailRun" "PostRun" PostRun
  303.                 profilewr MailRun "MailRun" "GoWait" GoWait
  304.                 exitwhile
  305.             endcase
  306.             case 50
  307.                 ;User changed Now/Later status
  308.                 if GoWait == 2
  309.                     enable CTRL 230
  310.                 else
  311.                     disable CTRL 230
  312.                 endif
  313.             endcase
  314.         endswitch
  315.     endwhile
  316.     while FLAGS & RUNNING
  317.         if AutoRun == 1
  318.             profilewr MailRunIni "MailRun" "AutoRun" 0
  319.         endif
  320.         if GoWait == 2
  321.             ;if user has scheduled for a later time...
  322.             mailrunbox()
  323.             boxstatus = 1
  324.             disable CTRL 170
  325.             when dialog call parsedialog
  326.             scheduler()
  327.         endif
  328.         if FLAGS & RUNNING
  329.             ;if the user has not terminated the mailrun, execute it
  330.             execute domailrun
  331.             boxstatus = 0
  332.             if PostRun == 2
  333.                 ;if post-mailrun activity is "Restart", reset the mailrun
  334.                 filereset()
  335.             elseif PostRun == 3
  336.                 ;if post-mailrun activity is "Shut Down", do so
  337.                 fileexit()
  338.             else
  339.                 ;if post-mailrun activity is "Remain Idle", reset RUNNING flag
  340.                 FLAGS &= IDLE
  341.             endif
  342.         endif
  343.     endwhile
  344.     if boxstatus == 0
  345.         ;if mailrunbox is not displayed, show it
  346.         mailrunbox()
  347.         when dialog call parsedialog
  348.     endif
  349.     if GoWait == 2
  350.         ;if the scheduler was used, enable the combobox
  351.         enable CTRL 170
  352.     endif
  353.     statmsg ""
  354.     maketasklist()
  355.     updatedlg 80
  356. endproc
  357.  
  358.  
  359. #comment
  360. *********************************************************************
  361. * 
  362. * SCHEDULER()
  363. * 
  364. * Called by executor()
  365. * 
  366. * Waits until the scheduled time before executing the
  367. * mailrun.
  368. * 
  369. *********************************************************************
  370. #endcomment
  371.  
  372. proc scheduler
  373. long LExecTime
  374.     updatedlg 64
  375.     ;get the system time for execution
  376.     strsltime $DATE ExecTime LExecTime
  377.     if LExecTime <= $LTIME
  378.         ;if the time of execution is earlier than the current time
  379.         ;increment the time of execution by 24 hours.
  380.         LExecTime += 86400
  381.     endif
  382.     strupr MailRunTrunc
  383.     while (LExecTime > $LTIME) && (FLAGS & RUNNING)
  384.         ;wait until the designated time is reached
  385.         statmsg "%s will execute at %s       Current time is %s" \
  386.             MailRunTrunc ExecTime $TIME24
  387.         pause 1
  388.     endwhile
  389.     strlwr MailRunTrunc
  390. endproc
  391.  
  392.  
  393. #comment
  394. *********************************************************************
  395. * 
  396. * CHECKTIME()
  397. * 
  398. * Called by executor()
  399. * 
  400. * Converts a string into an integer time value.  Returns
  401. * a value of 60 if a non-numeric character is received.
  402. * 
  403. *********************************************************************
  404. #endcomment
  405.  
  406. func checktime : integer
  407. strparm TimeString
  408. integer TimeInteger
  409.     atoi TimeString TimeInteger
  410.     if TimeInteger == 0
  411.         if not strcmpi TimeString "00"
  412.             TimeInteger = 60
  413.         endif
  414.     endif
  415.     return TimeInteger
  416. endfunc
  417.  
  418.  
  419. #comment
  420. *********************************************************************
  421. * 
  422. * MRUNMENU()
  423. * 
  424. * Called by main()
  425. * 
  426. * Creates the MailRun menu bar.
  427. * 
  428. *********************************************************************
  429. #endcomment
  430.  
  431. proc mrunmenu
  432.     menubar MailRunMenu
  433.         menupopup MailRunMenu "&File" FileMenu
  434.             menuitem FileMenu 1 "&New"
  435.             menuitem FileMenu 2 "&Save"
  436.             menuitem FileMenu 3 "Save &As"
  437.             menuitem FileMenu SEPARATOR
  438.             menuitem FileMenu 4 "&Reset mailrun"
  439.             menuitem FileMenu 5 "&Delete mailrun"
  440.             menuitem FileMenu SEPARATOR
  441.             menuitem FileMenu 6 "&Create AutoRun"
  442.             menuitem FileMenu SEPARATOR
  443.             menuitem FileMenu 7 "E&xit"
  444.         menupopup MailRunMenu "&Edit" EditMenu
  445.             menuitem EditMenu 8 "Cu&t"
  446.             menuitem EditMenu 9 "&Copy"
  447.             menuitem EditMenu 10 "&Paste"
  448.             menuitem EditMenu SEPARATOR
  449.             menuitem EditMenu 11 "De&lete"
  450.         menupopup MailRunMenu "&Configure" ConfigMenu
  451.             menuitem ConfigMenu 12 "&Mailrun Settings"
  452.             menuitem ConfigMenu 13 "&BBS Settings"
  453.             menuitem ConfigMenu 14 "BBS &Prompts"
  454.             menuitem ConfigMenu 15 "BBS Mail &Door"
  455.             menupopup ConfigMenu "De&faults" DefaultsMenu
  456.                 menuitem DefaultsMenu 16 "&MailRun"
  457.                 menuitem DefaultsMenu 17 "&BBS"
  458.                 menuitem DefaultsMenu 18 "&Prompts"
  459.                 menuitem DefaultsMenu 19 "Mail &Door"
  460.         menupopup MailRunMenu "&Add" AddMenu
  461.             menuitem AddMenu 20 "&New BBS"
  462.             menuitem AddMenu 21 "&Get/Send Mail"
  463.             menuitem AddMenu 22 "&Upload File"
  464.             menuitem AddMenu 23 "&Download File"
  465.             menuitem AddMenu 24 "Send &Command"
  466.             menuitem AddMenu 25 "Execute &Script"
  467.         menupopup MailRunMenu "&Execute" ExecuteMenu
  468.             menuitem ExecuteMenu 26 "&Execute MailRun"
  469.              menuitem ExecuteMenu 27 "&QWK Reader"
  470.             menuitem ExecuteMenu 28 "&Archiver"
  471.             menuitem ExecuteMenu 29 "&View Log File"
  472.         menupopup MailRunMenu "&Help" HelpMenu
  473.             menuitem HelpMenu 30 "&Contents"
  474.             menuitem HelpMenu 31 "&On current window..."
  475.             menuitem HelpMenu SEPARATOR
  476.             menuitem HelpMenu 32 "&About MailRun"
  477. endproc
  478.  
  479.  
  480. #comment
  481. *********************************************************************
  482. * 
  483. * RUNMENU()
  484. * 
  485. * Called by main()
  486. * 
  487. * Creates the menu bar used while a mailrun is executing.
  488. * 
  489. *********************************************************************
  490. #endcomment
  491.  
  492. proc runmenu
  493.     menubar RunningMenu
  494.         menupopup RunningMenu "&File" FileMenu
  495.             menuitem FileMenu 1 "&New"
  496.             menuitem FileMenu 2 "&Save"
  497.             menuitem FileMenu 3 "Save &As"
  498.             menuitem FileMenu SEPARATOR
  499.             menuitem FileMenu 4 "&Reset mailrun"
  500.             menuitem FileMenu 5 "&Delete mailrun"
  501.             menuitem FileMenu SEPARATOR
  502.             menuitem FileMenu 6 "&Create AutoRun"
  503.             menuitem FileMenu SEPARATOR
  504.             menuitem FileMenu 7 "E&xit"
  505.         menupopup RunningMenu "&Edit" EditMenu
  506.             menuitem EditMenu 8 "Cu&t"
  507.             menuitem EditMenu 9 "&Copy"
  508.             menuitem EditMenu 10 "&Paste"
  509.             menuitem EditMenu SEPARATOR
  510.             menuitem EditMenu 11 "De&lete"
  511.         menupopup RunningMenu "&Configure" ConfigMenu
  512.             menuitem ConfigMenu 12 "&Mailrun Settings"
  513.             menuitem ConfigMenu 13 "&BBS Settings"
  514.             menuitem ConfigMenu 14 "BBS &Prompts"
  515.             menuitem ConfigMenu 15 "BBS Mail &Door"
  516.             menupopup ConfigMenu "De&faults" DefaultsMenu
  517.                 menuitem DefaultsMenu 16 "&MailRun"
  518.                 menuitem DefaultsMenu 17 "&BBS"
  519.                 menuitem DefaultsMenu 18 "&Prompts"
  520.                 menuitem DefaultsMenu 19 "Mail &Door"
  521.         menupopup RunningMenu "&Add" AddMenu
  522.             menuitem AddMenu 20 "&New BBS"
  523.             menuitem AddMenu 21 "&Get/Send Mail"
  524.             menuitem AddMenu 22 "&Upload File"
  525.             menuitem AddMenu 23 "&Download File"
  526.             menuitem AddMenu 24 "Send &Command"
  527.             menuitem AddMenu 25 "Execute &Script"
  528.         menupopup RunningMenu "&Execute" ExecuteMenu
  529.             menuitem ExecuteMenu 26 "T&erminate MailRun"
  530.              menuitem ExecuteMenu 27 "&QWK Reader"
  531.             menuitem ExecuteMenu 28 "&Archiver"
  532.             menuitem ExecuteMenu 29 "&View Log File"
  533.         menupopup RunningMenu "&Help" HelpMenu
  534.             menuitem HelpMenu 30 "&Contents"
  535.             menuitem HelpMenu 31 "&On current window..."
  536.             menuitem HelpMenu SEPARATOR
  537.             menuitem HelpMenu 32 "&About MailRun"
  538. endproc
  539.  
  540.  
  541. #comment
  542. *********************************************************************
  543. * 
  544. * MRUNWIN()
  545. * 
  546. * Called by main()
  547. * 
  548. * Calls makefullname()
  549. * 
  550. * Creates the MailRun icon bar.  The DLL containing the
  551. * icons is copied to the C: root directory because the
  552. * iconbutton function will not accept variables as file
  553. * names.  C:\ is used because it is fairly certain to exist.
  554. * 
  555. *********************************************************************
  556. #endcomment
  557.  
  558. proc mrunwin
  559. string MRunIcons
  560.     MRunIcons = makefullname(MailRunDir, "MRUNICON.DLL")
  561.     copyfile MRunIcons "C:\MRUNICON.DLL"
  562.     defuserwin TOP PIXELS 34 192 192 192 bitmap
  563.         switch $XPIXELS
  564.             case 1280
  565.                 iconbutton  1   25 0 "" "C:\MRUNICON.DLL"  0 userwin
  566.                 iconbutton  2  300 0 "" "C:\MRUNICON.DLL"  1 userwin
  567.                 iconbutton  3  575 0 "" "C:\MRUNICON.DLL"  2 userwin 
  568.                 iconbutton  4  850 0 "" "C:\MRUNICON.DLL"  3 userwin 
  569.                 iconbutton  5 1250 0 "" "C:\MRUNICON.DLL"  4 userwin
  570.                 iconbutton  6 1525 0 "" "C:\MRUNICON.DLL"  5 userwin
  571.                 iconbutton  7 1800 0 "" "C:\MRUNICON.DLL"  6 userwin
  572.                 iconbutton  8 2075 0 "" "C:\MRUNICON.DLL"  7 userwin
  573.                 iconbutton  9 2350 0 "" "C:\MRUNICON.DLL"  8 userwin 
  574.                 iconbutton 10 2625 0 "" "C:\MRUNICON.DLL"  9 userwin
  575.                 iconbutton 11 2900 0 "" "C:\MRUNICON.DLL" 10 userwin
  576.                 iconbutton 12 3300 0 "" "C:\MRUNICON.DLL" 11 userwin
  577.                 iconbutton 13 3575 0 "" "C:\MRUNICON.DLL" 12 userwin
  578.                 iconbutton 14 3850 0 "" "C:\MRUNICON.DLL" 13 userwin
  579.                 iconbutton 15 4250 0 "" "C:\MRUNICON.DLL" 14 userwin
  580.                 iconbutton 16 4650 0 "" "C:\MRUNICON.DLL" 15 userwin
  581.             endcase
  582.             case 1024
  583.                 iconbutton  1   30 0 "" "C:\MRUNICON.DLL"  0 userwin
  584.                 iconbutton  2  374 0 "" "C:\MRUNICON.DLL"  1 userwin
  585.                 iconbutton  3  718 0 "" "C:\MRUNICON.DLL"  2 userwin 
  586.                 iconbutton  4 1062 0 "" "C:\MRUNICON.DLL"  3 userwin 
  587.                 iconbutton  5 1562 0 "" "C:\MRUNICON.DLL"  4 userwin
  588.                 iconbutton  6 1906 0 "" "C:\MRUNICON.DLL"  5 userwin
  589.                 iconbutton  7 2250 0 "" "C:\MRUNICON.DLL"  6 userwin
  590.                 iconbutton  8 2594 0 "" "C:\MRUNICON.DLL"  7 userwin
  591.                 iconbutton  9 2938 0 "" "C:\MRUNICON.DLL"  8 userwin 
  592.                 iconbutton 10 3282 0 "" "C:\MRUNICON.DLL"  9 userwin
  593.                 iconbutton 11 3626 0 "" "C:\MRUNICON.DLL" 10 userwin
  594.                 iconbutton 12 4126 0 "" "C:\MRUNICON.DLL" 11 userwin
  595.                 iconbutton 13 4470 0 "" "C:\MRUNICON.DLL" 12 userwin
  596.                 iconbutton 14 4814 0 "" "C:\MRUNICON.DLL" 13 userwin
  597.                 iconbutton 15 5314 0 "" "C:\MRUNICON.DLL" 14 userwin
  598.                 iconbutton 16 5814 0 "" "C:\MRUNICON.DLL" 15 userwin
  599.             endcase
  600.             case 800
  601.                 iconbutton  1   40 0 "" "C:\MRUNICON.DLL"  0 userwin
  602.                 iconbutton  2  480 0 "" "C:\MRUNICON.DLL"  1 userwin
  603.                 iconbutton  3  920 0 "" "C:\MRUNICON.DLL"  2 userwin 
  604.                 iconbutton  4 1360 0 "" "C:\MRUNICON.DLL"  3 userwin
  605.                 iconbutton  5 2000 0 "" "C:\MRUNICON.DLL"  4 userwin
  606.                 iconbutton  6 2440 0 "" "C:\MRUNICON.DLL"  5 userwin
  607.                 iconbutton  7 2880 0 "" "C:\MRUNICON.DLL"  6 userwin
  608.                 iconbutton  8 3320 0 "" "C:\MRUNICON.DLL"  7 userwin
  609.                 iconbutton  9 3760 0 "" "C:\MRUNICON.DLL"  8 userwin 
  610.                 iconbutton 10 4200 0 "" "C:\MRUNICON.DLL"  9 userwin
  611.                 iconbutton 11 4640 0 "" "C:\MRUNICON.DLL" 10 userwin
  612.                 iconbutton 12 5280 0 "" "C:\MRUNICON.DLL" 11 userwin 
  613.                 iconbutton 13 5720 0 "" "C:\MRUNICON.DLL" 12 userwin 
  614.                 iconbutton 14 6160 0 "" "C:\MRUNICON.DLL" 13 userwin 
  615.                 iconbutton 15 6800 0 "" "C:\MRUNICON.DLL" 14 userwin 
  616.                 iconbutton 16 7440 0 "" "C:\MRUNICON.DLL" 15 userwin 
  617.             endcase
  618.             default
  619.                 iconbutton  1   50 0 "" "C:\MRUNICON.DLL"  0 userwin
  620.                 iconbutton  2  600 0 "" "C:\MRUNICON.DLL"  1 userwin
  621.                 iconbutton  3 1150 0 "" "C:\MRUNICON.DLL"  2 userwin
  622.                 iconbutton  4 1700 0 "" "C:\MRUNICON.DLL"  3 userwin
  623.                 iconbutton  5 2500 0 "" "C:\MRUNICON.DLL"  4 userwin
  624.                 iconbutton  6 3050 0 "" "C:\MRUNICON.DLL"  5 userwin 
  625.                 iconbutton  7 3600 0 "" "C:\MRUNICON.DLL"  6 userwin 
  626.                 iconbutton  8 4150 0 "" "C:\MRUNICON.DLL"  7 userwin 
  627.                 iconbutton  9 4700 0 "" "C:\MRUNICON.DLL"  8 userwin 
  628.                 iconbutton 10 5250 0 "" "C:\MRUNICON.DLL"  9 userwin
  629.                 iconbutton 11 5800 0 "" "C:\MRUNICON.DLL" 10 userwin
  630.                 iconbutton 12 6600 0 "" "C:\MRUNICON.DLL" 11 userwin 
  631.                 iconbutton 13 7150 0 "" "C:\MRUNICON.DLL" 12 userwin
  632.                 iconbutton 14 7700 0 "" "C:\MRUNICON.DLL" 13 userwin 
  633.                 iconbutton 15 8500 0 "" "C:\MRUNICON.DLL" 14 userwin 
  634.                 iconbutton 16 9300 0 "" "C:\MRUNICON.DLL" 15 userwin
  635.             endcase
  636.         endswitch
  637.     paint
  638.     delfile "C:\MRUNICON.DLL"
  639. endproc
  640.  
  641.  
  642. #comment
  643. *********************************************************************
  644. * 
  645. * MAILRUNBOX()
  646. * 
  647. * Called by main(), parsedialog(), callscript(), executor(),
  648. * sendscript()
  649. * 
  650. * Draws the main MailRun dialog box.
  651. * 
  652. *********************************************************************
  653. #endcomment
  654.  
  655. proc mailrunbox
  656. destroydlg
  657. MainBoxTabs = "20,30,220,230,233,236,239,242"
  658. AttemptNum = "0"
  659. HelpPage = 1
  660. dialogbox 8 36 346 181 15 "MailRun" HELPID HelpPage
  661.    groupbox 10 33 228 135 "Task List" shadow
  662.    flistbox 15 52 218 102 TaskList MainBoxTabs single TaskItem
  663.    text  15 153 49 8 left "# = permanent"
  664.    text  76 153 49 8 left "ñ = temporary"
  665.    text  140 153 33 8 left "! = error"
  666.    text  182 153 53 8 left "@ = completed"
  667.    groupbox 244 33 90 135 "Statistics" shadow
  668.    text  248 55 62 8 right "BBSs in mailrun:"
  669.    text  248 69 62 8 right "BBSs completed:"
  670.    text  248 83 62 8 right "BBSs left to call:"
  671.    text  248 97 62 8 right "Items in mailrun:"
  672.    text  248 111 62 8 right "Items completed:"
  673.    text  248 125 62 8 right "Item errors:"
  674.    text  248 139 62 8 right "Items remaining:"
  675.    text  248 153 62 8 right "Dialing Attempt:"
  676.    vtext 314 55 16 9 left BBSTotal
  677.    vtext 314 69 16 9 left BBSComplete
  678.    vtext 314 83 16 9 left BBSRemaining
  679.    vtext 314 97 16 9 left ItemTotal
  680.    vtext 314 111 16 9 left ItemComplete
  681.    vtext 314 125 16 9 left ItemError
  682.    vtext 314 139 16 9 left ItemRemaining
  683.    vtext 314 153 16 9 left AttemptNum
  684.    text  102 14 74 8 right "The current mailrun is:"
  685.    combobox 180 12 76 41 MailRunList MailRunTrunc sort
  686.    pushbutton 0 0 0 0 "          &t" normal default
  687.    pushbutton 0 0 0 0 "          &u" normal
  688.    pushbutton 0 0 0 0 "          &i" normal
  689. enddialog
  690. if FLAGS & RUNNING
  691.     disable CTRL 170
  692. endif
  693. endproc
  694.  
  695.  
  696. #comment
  697. *********************************************************************
  698. * 
  699. * SCHEDULEBOX()
  700. * 
  701. * Called by executor()
  702. * 
  703. * Draws the MailRun Scheduler dialog box.
  704. * 
  705. *********************************************************************
  706. #endcomment
  707.  
  708. proc schedulebox
  709. destroydlg
  710. HelpPage = 3
  711. dialogbox 55 58 238 120 15 "MailRun Scheduler" HELPID HelpPage
  712.    groupbox 10 14 122 67 "Schedule" shadow
  713.    radiobutton 21 28 90 10 "Execute MailRun Now!" GoWait
  714.    radiobutton 21 44 90 10 "Execute MailRun Later..." endgroup
  715.    text  17 62 43 8 right "Execute At:"
  716.    editbox 64 60 55 12 ExecTime 8
  717.    groupbox 142 14 80 67 "When finished... " shadow
  718.    radiobutton 152 28 60 10 "Remain Idle" PostRun
  719.    radiobutton 152 44 60 10 "Restart" 
  720.    radiobutton 152 60 60 10 "Shut Down" endgroup
  721.    checkbox 10 92 116 12 "Interrupt mailrun if phone rings" RingInterrupt
  722.    pushbutton 132 93 40 14 "&OK" normal default
  723.    pushbutton 182 93 40 14 "&Cancel" cancel
  724. enddialog
  725. endproc
  726.  
  727.  
  728.